#!/usr/bin/perl

use lib "./../cgi-bin/";

use SHELL::Command;

my $comm = SHELL::Command->new();

#test ls
print "\t Test ls\n";
foreach $name ($comm->ls("/home"))
{
	$tmp = $name;
	chomp $tmp;
	print ">$tmp \n";
}

#test lsToGrep
print "\t Test lsToGreep\n";
foreach $name ($comm->lsToGreep("/home/dmitriy","perl"))
{
	$tmp = $name;
	chomp $tmp;
	print ">$tmp \n";
}

#test cat
print "\t Test cat\n";
print $comm->cat("/home/dmitriy/XTerm");

